Full source code website bán hàng thương mại điện tử gần giống shopee
472.897 lượt xem;
1 <!--
2 * FCKeditor - The text editor for Internet - http://www.fckeditor.net
3 * Copyright (C) 2003-2008 Frederico Caldeira Knabben
4 *
5 * == BEGIN LICENSE ==
6 *
7 * Licensed under the terms of any of the following licenses at your
8 * choice:
9 *
10 * - GNU General Public License Version 2 or later (the "GPL")
11 * http://www.gnu.org/licenses/gpl.html
12 *
13 * - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
14 * http://www.gnu.org/licenses/lgpl.html
15 *
16 * - Mozilla Public License Version 1.1 or later (the "MPL")
17 * http://www.mozilla.org/MPL/MPL-1.1.html
18 *
19 * == END LICENSE ==
20 *
21 * This is the integration file for ASP.
22 *
23 * It defines the FCKeditor class that can be used to create editor
24 * instances in ASP pages on server side.
25 -->
26 <%
27 Class FCKeditor
28
29 private sBasePath
30 private sInstanceName
31 private sWidth
32 private sHeight
33 private sToolbarSet
34 private sValue
35
36 private oConfig
37
38 Private Sub Class_Initialize()
39 sBasePath = "/fckeditor/"
40 sWidth = "100%"
41 sHeight = "200"
42 sToolbarSet = "Default"
43 sValue = ""
44
45 Set oConfig = CreateObject("Scripting.Dictionary")
46 End Sub
47
48 Public Property Let BasePath( basePathValue )
49 sBasePath = basePathValue
50 End Property
51
52 Public Property Let InstanceName( instanceNameValue )
53 sInstanceName = instanceNameValue
54 End Property
55
56 Public Property Let Width( widthValue )
57 sWidth = widthValue
58 End Property
59
60 Public Property Let Height( heightValue )
61 sHeight = heightValue
62 End Property
63
64 Public Property Let ToolbarSet( toolbarSetValue )
65 sToolbarSet = toolbarSetValue
66 End Property
67
68 Public Property Let Value( newValue )
69 If ( IsNull( newValue ) OR IsEmpty( newValue ) ) Then
70 sValue = ""
71 Else
72 sValue = newValue
73 End If
74 End Property
75
76 Public Property Let Config( configKey, configValue )
77 oConfig.Add configKey, configValue
78 End Property
79
80 ' Generates the instace of the editor in the HTML output of the page.
81 Public Sub Create( instanceName )
82 response.write CreateHtml( instanceName )
83 end Sub
84
85 ' Returns the html code that must be used to generate an instance of FCKeditor.
86 Public Function CreateHtml( instanceName )
87 dim html
88
89 If IsCompatible() Then
90
91 Dim sFile, sLink
92 If Request.QueryString( "fcksource" ) = "true" Then
93 sFile = "fckeditor.original.html"
94 Else
95 sFile = "fckeditor.html"
96 End If
97
98 sLink = sBasePath & "editor/" & sFile & "?InstanceName=" + instanceName
99
100 If (sToolbarSet & "") <> "" Then
101 sLink = sLink + "&Toolbar=" & sToolbarSet
102 End If
103
104 html = ""
105 ' Render the linked hidden field.
106 html = html & "<input type=""hidden"" id=""" & instanceName & """ name=""" & instanceName & """ value=""" & Server.HTMLEncode( sValue ) & """ style=""display:none"" />"
107
108 ' Render the configurations hidden field.
109 html = html & "<input type=""hidden"" id=""" & instanceName & "___Config"" value=""" & GetConfigFieldString() & """ style=""display:none"" />"
110
111 ' Render the editor IFRAME.
112 html = html & "<iframe id=""" & instanceName & "___Frame"" src=""" & sLink & """ width=""" & sWidth & """ height=""" & sHeight & """ frameborder=""0"" scrolling=""no""></iframe>"
113
114 Else
115
116 Dim sWidthCSS, sHeightCSS
117
118 If InStr( sWidth, "%" ) > 0 Then
119 sWidthCSS = sWidth
120 Else
121 sWidthCSS = sWidth & "px"
122 End If
123
124 If InStr( sHeight, "%" ) > 0 Then
125 sHeightCSS = sHeight
126 Else
127 sHeightCSS = sHeight & "px"
128 End If
129
130 html = "<textarea name=""" & instanceName & """ rows=""4"" cols=""40"" style=""width: " & sWidthCSS & "; height: " & sHeightCSS & """>" & Server.HTMLEncode( sValue ) & "</textarea>"
131
132 End If
133
134 CreateHtml = html
135
136 End Function
137
138 Private Function IsCompatible()
139
140 IsCompatible = FCKeditor_IsCompatibleBrowser()
141
142 End Function
143
144 Private Function GetConfigFieldString()
145
146 Dim sParams
147
148 Dim bFirst
149 bFirst = True
150
151 Dim sKey
152 For Each sKey in oConfig
153
154 If bFirst = False Then
155 sParams = sParams & "&"
156 Else
157 bFirst = False
158 End If
159
160 sParams = sParams & EncodeConfig( sKey ) & "=" & EncodeConfig( oConfig(sKey) )
161
162 Next
163
164 GetConfigFieldString = sParams
165
166 End Function
167
168 Private Function EncodeConfig( valueToEncode )
169 ' The locale of the asp server makes the conversion of a boolean to string different to "true" or "false"
170 ' so we must do it manually
171 If vartype(valueToEncode) = vbBoolean then
172 If valueToEncode=True Then
173 EncodeConfig="True"
174 Else
175 EncodeConfig="False"
176 End If
177 Else
178 EncodeConfig = Replace( valueToEncode, "&", "%26" )
179 EncodeConfig = Replace( EncodeConfig , "=", "%3D" )
180 EncodeConfig = Replace( EncodeConfig , """", "%22" )
181 End if
182
183 End Function
184
185 End Class
186
187
188 ' A function that can be used to check if the current browser is compatible with FCKeditor
189 ' without the need to create an instance of the class.
190 Function FCKeditor_IsCompatibleBrowser()
191
192
193 Dim sAgent
194 sAgent = Request.ServerVariables("HTTP_USER_AGENT")
195
196 Dim iVersion
197 Dim re, Matches
198
199 If InStr(sAgent, "MSIE") > 0 AND InStr(sAgent, "mac") <= 0 AND InStr(sAgent, "Opera") <= 0 Then
200 iVersion = CInt( FCKeditor_ToNumericFormat( Mid(sAgent, InStr(sAgent, "MSIE") + 5, 3) ) )
201 FCKeditor_IsCompatibleBrowser = ( iVersion >= 5.5 )
202 ElseIf InStr(sAgent, "Gecko/") > 0 Then
203 iVersion = CLng( Mid( sAgent, InStr( sAgent, "Gecko/" ) + 6, 8 ) )
204 FCKeditor_IsCompatibleBrowser = ( iVersion >= 20030210 )
205 ElseIf InStr(sAgent, "Opera/") > 0 Then
206 iVersion = CSng( FCKeditor_ToNumericFormat( Mid( sAgent, InStr( sAgent, "Opera/" ) + 6, 4 ) ) )
207 FCKeditor_IsCompatibleBrowser = ( iVersion >= 9.5 )
208 ElseIf InStr(sAgent, "AppleWebKit/") > 0 Then
209 Set re = new RegExp
210 re.IgnoreCase = true
211 re.global = false
212 re.Pattern = "AppleWebKit/(\d+)"
213 Set Matches = re.Execute(sAgent)
214 FCKeditor_IsCompatibleBrowser = ( re.Replace(Matches.Item(0).Value, "$1") >= 522 )
215 Else
216 FCKeditor_IsCompatibleBrowser = False
217 End If
218
219 End Function
220
221
222 ' By Agrotic
223 ' On ASP, when converting string to numbers, the number decimal separator is localized
224 ' so 5.5 will not work on systems were the separator is "," and vice versa.
225 Private Function FCKeditor_ToNumericFormat( numberStr )
226
227 If IsNumeric( "5.5" ) Then
228 FCKeditor_ToNumericFormat = Replace( numberStr, ",", ".")
229 Else
230 FCKeditor_ToNumericFormat = Replace( numberStr, ".", ",")
231 End If
232
233 End Function
234
235 %>
2 * FCKeditor - The text editor for Internet - http://www.fckeditor.net
3 * Copyright (C) 2003-2008 Frederico Caldeira Knabben
4 *
5 * == BEGIN LICENSE ==
6 *
7 * Licensed under the terms of any of the following licenses at your
8 * choice:
9 *
10 * - GNU General Public License Version 2 or later (the "GPL")
11 * http://www.gnu.org/licenses/gpl.html
12 *
13 * - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
14 * http://www.gnu.org/licenses/lgpl.html
15 *
16 * - Mozilla Public License Version 1.1 or later (the "MPL")
17 * http://www.mozilla.org/MPL/MPL-1.1.html
18 *
19 * == END LICENSE ==
20 *
21 * This is the integration file for ASP.
22 *
23 * It defines the FCKeditor class that can be used to create editor
24 * instances in ASP pages on server side.
25 -->
26 <%
27 Class FCKeditor
28
29 private sBasePath
30 private sInstanceName
31 private sWidth
32 private sHeight
33 private sToolbarSet
34 private sValue
35
36 private oConfig
37
38 Private Sub Class_Initialize()
39 sBasePath = "/fckeditor/"
40 sWidth = "100%"
41 sHeight = "200"
42 sToolbarSet = "Default"
43 sValue = ""
44
45 Set oConfig = CreateObject("Scripting.Dictionary")
46 End Sub
47
48 Public Property Let BasePath( basePathValue )
49 sBasePath = basePathValue
50 End Property
51
52 Public Property Let InstanceName( instanceNameValue )
53 sInstanceName = instanceNameValue
54 End Property
55
56 Public Property Let Width( widthValue )
57 sWidth = widthValue
58 End Property
59
60 Public Property Let Height( heightValue )
61 sHeight = heightValue
62 End Property
63
64 Public Property Let ToolbarSet( toolbarSetValue )
65 sToolbarSet = toolbarSetValue
66 End Property
67
68 Public Property Let Value( newValue )
69 If ( IsNull( newValue ) OR IsEmpty( newValue ) ) Then
70 sValue = ""
71 Else
72 sValue = newValue
73 End If
74 End Property
75
76 Public Property Let Config( configKey, configValue )
77 oConfig.Add configKey, configValue
78 End Property
79
80 ' Generates the instace of the editor in the HTML output of the page.
81 Public Sub Create( instanceName )
82 response.write CreateHtml( instanceName )
83 end Sub
84
85 ' Returns the html code that must be used to generate an instance of FCKeditor.
86 Public Function CreateHtml( instanceName )
87 dim html
88
89 If IsCompatible() Then
90
91 Dim sFile, sLink
92 If Request.QueryString( "fcksource" ) = "true" Then
93 sFile = "fckeditor.original.html"
94 Else
95 sFile = "fckeditor.html"
96 End If
97
98 sLink = sBasePath & "editor/" & sFile & "?InstanceName=" + instanceName
99
100 If (sToolbarSet & "") <> "" Then
101 sLink = sLink + "&Toolbar=" & sToolbarSet
102 End If
103
104 html = ""
105 ' Render the linked hidden field.
106 html = html & "<input type=""hidden"" id=""" & instanceName & """ name=""" & instanceName & """ value=""" & Server.HTMLEncode( sValue ) & """ style=""display:none"" />"
107
108 ' Render the configurations hidden field.
109 html = html & "<input type=""hidden"" id=""" & instanceName & "___Config"" value=""" & GetConfigFieldString() & """ style=""display:none"" />"
110
111 ' Render the editor IFRAME.
112 html = html & "<iframe id=""" & instanceName & "___Frame"" src=""" & sLink & """ width=""" & sWidth & """ height=""" & sHeight & """ frameborder=""0"" scrolling=""no""></iframe>"
113
114 Else
115
116 Dim sWidthCSS, sHeightCSS
117
118 If InStr( sWidth, "%" ) > 0 Then
119 sWidthCSS = sWidth
120 Else
121 sWidthCSS = sWidth & "px"
122 End If
123
124 If InStr( sHeight, "%" ) > 0 Then
125 sHeightCSS = sHeight
126 Else
127 sHeightCSS = sHeight & "px"
128 End If
129
130 html = "<textarea name=""" & instanceName & """ rows=""4"" cols=""40"" style=""width: " & sWidthCSS & "; height: " & sHeightCSS & """>" & Server.HTMLEncode( sValue ) & "</textarea>"
131
132 End If
133
134 CreateHtml = html
135
136 End Function
137
138 Private Function IsCompatible()
139
140 IsCompatible = FCKeditor_IsCompatibleBrowser()
141
142 End Function
143
144 Private Function GetConfigFieldString()
145
146 Dim sParams
147
148 Dim bFirst
149 bFirst = True
150
151 Dim sKey
152 For Each sKey in oConfig
153
154 If bFirst = False Then
155 sParams = sParams & "&"
156 Else
157 bFirst = False
158 End If
159
160 sParams = sParams & EncodeConfig( sKey ) & "=" & EncodeConfig( oConfig(sKey) )
161
162 Next
163
164 GetConfigFieldString = sParams
165
166 End Function
167
168 Private Function EncodeConfig( valueToEncode )
169 ' The locale of the asp server makes the conversion of a boolean to string different to "true" or "false"
170 ' so we must do it manually
171 If vartype(valueToEncode) = vbBoolean then
172 If valueToEncode=True Then
173 EncodeConfig="True"
174 Else
175 EncodeConfig="False"
176 End If
177 Else
178 EncodeConfig = Replace( valueToEncode, "&", "%26" )
179 EncodeConfig = Replace( EncodeConfig , "=", "%3D" )
180 EncodeConfig = Replace( EncodeConfig , """", "%22" )
181 End if
182
183 End Function
184
185 End Class
186
187
188 ' A function that can be used to check if the current browser is compatible with FCKeditor
189 ' without the need to create an instance of the class.
190 Function FCKeditor_IsCompatibleBrowser()
191
192
193 Dim sAgent
194 sAgent = Request.ServerVariables("HTTP_USER_AGENT")
195
196 Dim iVersion
197 Dim re, Matches
198
199 If InStr(sAgent, "MSIE") > 0 AND InStr(sAgent, "mac") <= 0 AND InStr(sAgent, "Opera") <= 0 Then
200 iVersion = CInt( FCKeditor_ToNumericFormat( Mid(sAgent, InStr(sAgent, "MSIE") + 5, 3) ) )
201 FCKeditor_IsCompatibleBrowser = ( iVersion >= 5.5 )
202 ElseIf InStr(sAgent, "Gecko/") > 0 Then
203 iVersion = CLng( Mid( sAgent, InStr( sAgent, "Gecko/" ) + 6, 8 ) )
204 FCKeditor_IsCompatibleBrowser = ( iVersion >= 20030210 )
205 ElseIf InStr(sAgent, "Opera/") > 0 Then
206 iVersion = CSng( FCKeditor_ToNumericFormat( Mid( sAgent, InStr( sAgent, "Opera/" ) + 6, 4 ) ) )
207 FCKeditor_IsCompatibleBrowser = ( iVersion >= 9.5 )
208 ElseIf InStr(sAgent, "AppleWebKit/") > 0 Then
209 Set re = new RegExp
210 re.IgnoreCase = true
211 re.global = false
212 re.Pattern = "AppleWebKit/(\d+)"
213 Set Matches = re.Execute(sAgent)
214 FCKeditor_IsCompatibleBrowser = ( re.Replace(Matches.Item(0).Value, "$1") >= 522 )
215 Else
216 FCKeditor_IsCompatibleBrowser = False
217 End If
218
219 End Function
220
221
222 ' By Agrotic
223 ' On ASP, when converting string to numbers, the number decimal separator is localized
224 ' so 5.5 will not work on systems were the separator is "," and vice versa.
225 Private Function FCKeditor_ToNumericFormat( numberStr )
226
227 If IsNumeric( "5.5" ) Then
228 FCKeditor_ToNumericFormat = Replace( numberStr, ",", ".")
229 Else
230 FCKeditor_ToNumericFormat = Replace( numberStr, ".", ",")
231 End If
232
233 End Function
234
235 %>
